home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / First Tutorial / Session 2 < prev    next >
Lisp/Scheme  |  1998-10-26  |  627b  |  35 lines
  1. (setq symbols '(a b c d e f g))
  2.  
  3. (def-symbol
  4.     instr1 symbols
  5.     instr2 symbols
  6.     instr3 symbols
  7.     instr4 symbols
  8. )
  9.  
  10. (def-length
  11.     default '1/16
  12. )
  13.  
  14. (def-channel
  15.     instr1 1
  16.     instr2 2
  17.     instr3 3
  18.     instr4 4
  19. )
  20.  
  21. (setq tonals (activate-tonality (blues1 c 4) (chromatic c 6)))
  22.  
  23. (midiport :printer)
  24.  
  25. (def-tempo 120)
  26.  
  27. (compile-song-p "ccl;output:" 1/4 "Session 2"
  28. ;                       |---|---|---|---|
  29.     changes  tonals    " ....    ..  ..."
  30.     instr1   changes   "-  - -- - --- --"
  31.     instr2   changes   " -  -- -- -- ---"
  32.     instr3   changes   "  -   -- -- -- -"
  33.     instr4   changes   "   -   --  -----"
  34. )
  35.